<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>8</cardCount>
<cardID>2979</cardID>
<listID>7943</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal isSixif item 4 of the screenRect <= 342 then hide menuBarhide msgcheckHelpMgrif isSix then exit openStackif balloons("isOn") then put "On" into balloonStatuselse put "Off" into balloonStatusget balloons("On")go cd 1 -- in case user popped cdput the loc of btn "on/off" into tipset the hilite of btn "on/off" to trueput Balloons("ShowPICT", 1515, tip) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowPICT", 1515, tip) into helpResultend repeatput the ticks into waitStartrepeat until the ticks - waitStart >= 180if the mouseClick then exit repeatend repeatget balloons(balloonStatus) -- restoreif not balloons("isOn") then set the hilite of btn "on/off" to falseremoveABalloon -- in case status = onend openStackon checkHelpMgrglobal isSixput (balloons("isOn") contains "Error") into isSixif isSix thenanswer "This stack is fully functional only under " ¬& "System 7.0 when the Help Manager is present." ¬& "The Help Manager is not detected on this Mac. You may " ¬& "read the information in this stack without accessing the " ¬& "help balloons, or you may return to your Home stack." ¬with "Home" or "Continue"if it is "home" thengo homeexit to HyperCardend ifend ifend checkHelpMgron errorMsgglobal isSixif isSix thenanswer "Cannot turn on Balloon Help; the Help Manager is not present on this Macintosh."exit to HyperCardend ifend errorMsg------------------ Balloon Help Handlers and Functions -----------------on ShowABalloon helpMessage,location,versionif location is empty then put calcTip() into locationif version is empty then put 0 into versionput Balloons("Show",helpMessage,location,version) into helpResultrepeat until "-853" is not in helpResultput Balloons("Show",helpMessage,location, version) into helpResultend repeatend ShowABalloonon ShowAPict pictResourceIDput calcTip() into tipput Balloons("ShowPICT", pictResourceID, tip) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowPICT", pictResourceID, tip) into helpResultend repeatend ShowAPicton ShowAString STRResourceID, theTip, versionif theTip is empty then put calcTip() into tipput Balloons("ShowSTR", STRResourceID, tip, version) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowSTR", STRResourceID, tip, version) into helpResultend repeatend ShowAStringon ShowASTRLIst STRResourceID, index, theTip, versionif theTip is empty then put calcTip() into tipput STRResourceID && "," && index into resourceRecordput Balloons("ShowSTRList", resourceRecord, tip, version) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowSTRList", resourceRecord, tip, version) into helpResultend repeatend ShowASTRListon RemoveABalloonget Balloons("Remove")end RemoveABalloonfunction calcTipput the botRight of the target into tipsubtract 10 from item 1 of tipsubtract 10 from item 2 of tipreturn tipend calcTip</script>
